C NEXT IS FOR CHANT NOTATION
1000	JA=11
	J5=J6
C USE J6 FOR ITEM CODE BECAUSE R6 IS ZEROED IN NTS.FAI
C R5 IS DISPLACEMENT TO RIGHT
C R7 IS STEM ON LEFT SIDE, R8 IS STEM ON RIGHT
	IF(R8.EQ.999.)R8=0
	RR8=R8
	RR7=R7
	R6=1.
	R7=1.
	R9=0
	R8=0
	NJR='GREG'
	IF(R5.GT.0)R3=R3+5.96*RSTJ2*R5
	CALL CLEFS
	IF(RR7.EQ.0)GO TO 1001
1002	R5=R4+RR7
	R6=RX3
	JA=4
	R7=0
	J7=0
	CALL ITMSUB
1001	IF(RR8.EQ.0)RETURN
	R3=R3+11.92*RSTJ2
	RX3=RX3+2.*RSTJ2
	RR7=RR8
	RR8=0
	GO TO 1002
	END